@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`f^_MMTNMNRINDEXKEYWORDLINEBULABELSPTYPELRGSMLINFILEOUTFILEPOPCPRPRTRDOTBLANKTIGLOBALER}FFFFGLBCIDXCIIPNIDMLENABLEGLBFFILTDIFOUNSKENOPCOLCOLSMEXSMLREXLRPKEYLOLLPAGFSCREEL}INMSCREECOD@A @@1@AATNa c (  @ A z} A ( (P (x v At A A"v((((((cAy@}AA9@ @!"#$%@7&'A$v(@)@*@'+, }-./01AU23@4@56789:;< }=>?@ABCDEFGHIJ@dKAp }LAMAX RECORDS=300FILE LENGTH=275FILE NAME=HOMEINVSET UP DIM ARRAYS+6-@ B }+AR@ >:A%, Running... ! @ @! @@,6-F:@,!A',6-&A( }@B7t$( AU))31,28,31,30,31,30,31,31,30,31,30,31Z?9@,#@.-@}@2";68,-? _36-@6-A'6-36-ATdDIM STATEMENTSi00;$@%@,;@}@,;@ ,nH6-@H;AA,9@,9@,;@@,;@@,sRR;AT,;AT,9@},9@,9@,;@@,;@@,v%%;@@,;@@,;,9,x B(A'} B }A //@@D1:HOMEINV.SCR:@%68@,-@:68@,-@-@}@@@@ 68,-68%@,-8,%%%68%@,-}8,%@%&&68,-P:'@@,!!68,-&@&@@$8, -@@$$678,}<8%@,&@,. @# B#CHANGE DISK MESSAGE B(A h6-6-}|* 6. 67@@,.*67@,.$ 6. 67,.$67@,."A@X A@#B}U! A,@X@@D1:HOMEINV.GLB-@" A3@6}-8%@,&8,""8,&@B$B#$$678,<8%@,&@,. A5''678,<8%@},&@,.0X  A6-@:@:@@D1:HOMEINV.IDX@6}7,. 6-% A`56- A56-A:7$@%@,, B* 6..67@@,.*67}@,.$@ B` Be? +6-@+AR@5 B? @}4 >:A%,"AA`4AA`*-@@* Program designed-@@ by)}-@@) Tawn D Anderson(-@@( HOME INVENTORY .-@@. Your selections are:}>-@@ > $File preparation.(first time only).F>-@@> $Enter new records..................E>}-@@> $Lookup records.....................L!>-@@> $Search records.....................S&>}-@@> $Update records.....................U+>-@@> $Delete records.....................D0>- }@@> $Exit program.......................X5>-@@> $Enter function by pressing the key :<-!}@@!< " To return to this menu press D16-@76-@'6-@'1 B F4)4>:@',"}AH4FAFILE PREPI"AJ 4EA  ENTER DATAL!4LB!LOOKUP DA#}TAN!4SB !SEARCH DATAP!4UB0!UPDATE DATAR!4DB@!DELETE DATAX"4XA"EX$}IT PROGRAM] A A%D:MENU06-F:A,0"AD)"ApAP=(>:A%,%(UNDEFINED%} ERROR.3( TRY AGAIN= Ap=(>:A%,/(PLEASE INSERT PROGRAM DISK=( TRY AGAIN%-@A % A&}FILE PREPERATION ROUTINEm +'0@@A0@@[0@@@'}mAR@9-@@9 This option will erase all your5-@@5 previously entered recor(}ds.=-@@= #To begin file preparation press =-@@= #To exit file preparation press )}?-@@? %Please enter choice/press RETURN ۠ 16-@26-@7'6-@1 B 4C*}A4XA A5FINISHED ASKING NOW DOL22LINE TO DISK SUBROUINES FOR FILE PREPERATIONV? >:+}A%,"-@@? This will take some time` BoEND OF ROUTINEt ANEW RECORD ENTRY,}##@@E:A `a (}-@@2 Your file is full.D-@@a Hit-} to continue.#6- B# A# 6- B }&-@&BEGIN DISPLAY LOOP.}1AA`'AA`1 @ 8,!@A!0*/-8,8,/ 78,<8%@,&@,4/}8,"A!0>8,"@ mm/dd/yyH>8,@*8,> 7@<8%@,&8,,R \0}6-aH-@@"H &@# records on file f-@p''8, @)8,1}!@A!u4-@@#4 Hit to return to menuz A4A#$$678,<8%@,2}&@,. 6-@ BPC CALCSN-@@"+ Is this correct? 76-@"C6-@3}N6-@:Y, B4A#!6-@4N! B3(A#6.7@<@2,! BP4} B! B6-%@ A E@ A@""INPUT KEYBOARD ENTERED FIELDB% 6-8," 5}@)!@%$D= 6-8,'6-8,%8%@,&8,=6-8%@,&8,F'6-6-"@' BH 6}4$I BJ3!@3&@B B!B!LAN!@* A%R A7}%@@$TAV''B%B&B$B#X$YM OR L OPTION\ 6- -@B:,^8}?6-@:7,,9"@v)"@w)"A)"A ?6-`  ($b97<,4m66-A:78,<8%@,&@9},,%9$d,)6-A:78,<8%@,&@,,&,$0A7-@@"( requires input46-@7$:}6-$6-$6-$ 6-$0 6-$X 6-$ 0A%;} 7-@@"( entry required46-@7$ 6-$ 6-$ 6-$ 6-<}$ !6-$H!6-$*LOOKUP RECORD+9#@@E:/6-9 B + B=}(A+=-@@#= "Hit to print, to exit +-6-@ B-"@B@*+>}"@B@4+ BpPRINT SCREEN>+ B B0.@ A.RECORD SCAN SUBR.?}.##@@E:.6-@ B. @B%. 6.6.6-. }-@@}@.-- $SCAN ALL OR SELECTED RECORDS (S/A)? .16-@6-@8'6-@21 B .4B%A}/4AB#p/4SB `/ B / }-@@!/>' WHICH FIELD TO SELECT ON (1-12,> OR B}'?' TO LIST)? &/16-@6-@'6-@1 B0/4>:@',B%:/+ 4?6-! B0+C} B `D/4 B!@6-A:,4 @)!@B!@N/6--@X/56-%@58, @)8D},!@B! b/  B!Pl/2-@@#(  Ġ2 B v/"6-8%@,&8,"6-8,/E}!@6-@/4-@@4 78,<8%@,&@,/ @B"p/,   ,  SMALLEST VAF}LUE TO SELECT?/   7@<,/  INCLUSIVE(Y/N)? /(  (  LARGEST VALUE TO SELECT?/   7@G}<,/  INCLUSIVE(Y/N)? /'6-@6-@'6-@ / B#0//6.7@<, "@/6.mH}m/dd/yy//   /  SMALLEST VALUE TO SELECT? 0$$  INCLUSIVE(Y/N)?  0,  ,  LARGEST VALUE TO SI}ELECT? 0$$  INCLUSIVE(Y/N)?  0!6-@ 6-@0!6-*0 B'GET SMALL/04B%40J} 6-6.6->0+6-%@!@ +6-%@@0 B'GET LARGEC04B%H0 6-6.6-K}R0-@&@W0 >:A%,\06-@$6-&@f0 B Bp0"B%0u0L}"@B$qz0"@B$0$$6.78,<8%@,&@,04B$@02)*4B%p04M}B%003)*4B%p0 B%00$$6.78,<8%@,&@,04B$u0 6.6. B'N}6.0## )*"B%p04B%00 6.6. B'6.0## )*"B%pO}0 B%00''6-A:78,<8%@,&@,,04B%0 )*"B%p04B%00!)*"P}B%p0 BPPRINT RECORD0c-@@"= # to print, to continue,O-@@#c Q} to exit16-@ B1-"@ Bp# B- B%@1"@6-1 $1@R} A1! 6-6-"@! B1-6-4)4*6-%@-$1+!@+&@B BS}!1B'1"@6-A:,1B%B&B%1-6-%@6-#6-@2- B1 6T}-4N1 6.1$2UPDATE RECORD ROUTINE2##@@E:2 BGET RECORD2(B1pU}2 B3EDIT RECORD2B12 6. BP3j-@@"> $Hit to return to menu, or V}P-@@#j to continue editing.3)6- B)4B1p"3 B,3 B0@63 6-6-W}%@@3337@<@2,47@<@2,B1`J3 B `T3$6.7@<@2,$ BPh3 B X}Br3@ A3HANDY DANDY RECORD EDITOR3 6.6-4 BCALCULATE PC'S4 }4aY}0@@70@@Q0@@@aSET UP SCREEN!4 BPPRINT INFILE$&4Z}<-@@"< "Enter 1-12 to change field, '?' to04++ " list, 'p'rint record or 's'ave. :416-@#6-@4[}'6-@1 B?4 BD4 4S)4s6-@ $I4/4P)4p Bp% B/ B3PN4 4\}6-$X4+ 4?6-@! B0+ B3@b496- B!P9) @)!@B6l46-]}-@v456-%@58, @)8,!@B404 46-@4 A4 46-^}$4$$678,<8%@,&@,.4 B3  5*5R-@@"< !ĠĠ - Hit _}H6-R B45 B3P6DELETE RECORD6##@@E:6 BTO GET RECORD6(`}B@6a-@@#4 Sure you want to delete? @6-@#L6-@3W6-@:Y,a B64N)4a}B@66-&@ B `66-6@6 B`ADJUST GLOBALS7 6. 7@ A:VERIFY b}GLOBAL TOTALS:-@:68,-: : +@@@:!!-@@$@:c}"@BQP:6-&@6-&@:1-@@1 @READING RECORD:E-@@E @d}+&@,'@ OF &@: #BU: B B;-@; ";//68,-8,%A:78e},<8%@,&@,,$; .; 8;/ +/ FIELD OLD TOTAL NEW TOTALB; #BUL;-@V; "f}!@ BR0`;-@%@j; -@%@t;@% A:78,<8%@,&@,,9-@"%@g}@ 8,~;" 6-8,"6-8%@,&8,;""8,&@B$B#;$$678,<8%@,&@,.; ;Eh}-@@"/ Hit to continue;6-@E B;6-@ A>GLOBAL ADJUSTMENTS> ( $i}> #BU>-@> ">1 B`p16-A:78,<8%@,&@,,>556-&A:78,<8%@j},&@,,>556-%A:78,<8%@,&@,,>86-8%@,&8,88,&@B$B#k}>$$678,<8%@,&@,.> > B6-@$B$END GLOBALShBDUMP SCREEN TO PRINTERrB9 l}Bq B)-@@"9  Printing...|B+-@!+-@8B8 1-*@*m}!A'86-&A(B67%@,.>:,B   3B B B BB$B BB[-@@"n}, Printer not ready.>-@@#[ Hit to continue.B+-@@"!6-+ BB Bo}$PFPC CALCS AND GLOBALSQF BRLGCALC P.C.'SpI B`$8J @BJ6- BDJ6-p}GJ+-@@+ Please enter key.LJ -@@ ITEM VJ16-@6-@!'6-@21 q}B[J4)4>:@',$`J B%6.oJ+-@@!+  qJ 6. BGET KEYtr}J(B`~J! 6-6-%@! BJ BJ""07@<@2,B@J BPPRINT INFILE$s}J'-@@#'  Is this it? J06-@6-@#&6-@:N,0 BJ BJ 4Y$J" 6. t}B"GET NEXT RECJ B`JC }-@@C #No Record Found. Hit for menuJ F:B2y,@u}BpJ$ NFILE PREP ROUTINE*N# 6. 67,.#67@,.4N 6.6.9N@>N//@@v}D1:HOMEINV.DATCN-@HN@RNBUILD INDEX\N6-P:'@',fN6-&$@'zN6-w}%@dN6-%@dN6-%@2N!@6-%@dN6.zzzzzN67B:,%@,.>:,N67B:,%x}@,.>:,N67B:,%@,.>:,N67B:,%@,.N-@N''8,")8,!@BN$$6y}.78,<8%@,&@,N @N N1 }RECORD NUMBER=1 LEN OF INDEX$=B:,O  TRACK/BYTE: z}/O 6-@O@ B`O. 6.067,.$67@,.. BeO% B$%FILE PREP FIN{}ISHEDO B6.$O.F:A,"Ab. }DISK FULL ERROR.)O5F:A,Ab5  }DISK ERROR #F:A,|}.OR!  Hit to continue.-6-96-E6-O BR$LO!!SEARCH FOR RECORD IN INDEX$VO$ 6-B:}},!@$6-@`O/67%@,.!6-@/6-&@jO* @6-@'6-*$tOK6-$~}@&@.37<%&@,:6-H6-%@K$~O"BO.6-P:+%,'@,.6-$@&@}O/7<%&@,6-O&37<%&@,&6-%@O BPO6-$@&@O6-+47<%}&@,,O6.7<%@,$OEND OF ROUTINEPINPUT FILEP:@:@@D1:HOMEIN}V.DAT#P# 6. 67,.#67@,.(P@FROM INDEX2P-@Q  HH)}  hyhyB q L> Lm JJ  Ln*` dB%'}8  H H` 1 { LL   !L     Hh SY?  q  1L}  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}gra |||DDOS DOSDOS SYS }}}}}BAUTORUN SYSCDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU } L ? .  t`GBJ V~DEHI B V0dV}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh}DEL8HI   0 HI,0 0  9 .G VLO},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO }STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -}LLu DEHILV 9 .l 9 .l  `` s$B VBH}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 0}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L } BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C#R#DCTIMFCOLOZRORIGICORIGIROCOLUMVOICPITCORIGINHTITLEFILERECOD @}BdQ@@u@X@XA( @` A) @&@A#@[\}u@d + AXAR@0;@,;@2 },<6-@N@X @!##67@<@,.>:@", @'6-?:C:,<,$ +@# } A10K0@@e0@0@ @ }6-@#$@  6-6- "@:, @d@ + 4P" @ !,+ @   }4R" @ 1 4S"'2@@1 @4D@ 4END$ 0F @ }% " @ -%Ae;+@@S:1,; @* 6-A:," @  }/* @ 6-%6-%$ END #@%+-@@2"'67,.>:,+ $dd104,104,104,}72,162,57,160,0,173,0,210,101,20,141,22,208,141,10,212,136,208,242,202,208,237,10456,233,1,208,228,96Y9@<@}%,,-@@%@-@Q68<,-U Y ;@,;@%,LL23,0,42,0,61,0,80,0,9}9,0,0,0,0,29,19,29,38,29,57,29,76,29,95,29,114,29HH133,29,0,0,14,58,33,58,52,58,71,58,90,58,109,58,128,58,0,0,0,0,0,0.}$6.THE ANDERSON NETWORK . @P -@B:,!7<,4 @7"%6-8<,%6-8@<,#}6-@:7<,,$ @% & @ A02M #@)!-@@%'"868<,-I68@}<,-M 3 +@# A$m..(%SCREEN WILL GO BLANK DURING EXECUTIONn-@A o +}AYp-@)A@,(>:A%,>-@@R-@ X(%\ n-}AB@q3-@@ (CONT0-@3&rAB@s x; + A)A}Y;-@yU(29 DATA %-@@J(8<,,8@<,,N U( zU(3}0 DATA %-@@%J(8<,,8@<,,N U( {66( 31 TITLE$=>:@4,>:@4, :GOS}UB 50|!!(32 FOR I=1 TO LEN(TITLE$)}??(33 IF TITLE$(I,I)=>:@4, >:@4, THEN 37~&&(34 X=ORIGIN(0,I)}:Y=ORIGIN(1,I)(35 Z2=ASC(TITLE$(I,I))( 36 GOSUB 7( 37 NEXT I::(238 GOSUB 4:END:REM CHANGE END TO RUN D}:YOURPROGRAMOO(G50 RESTORE 29:FOR I=1 TO 25:READ X,Y:ORIGIN(0,I)=X:ORIGIN(1,I)=Y:NEXT I(51 GR.23:RETURNAB}@3-@@"(CONT0-@3&AB@(>:A%,AY@4>-}@@>($ENTER NAME TO SAVE NEW PROGRAM UNDER(-@@((E.G. D:MYTITLE;@,-@}@ A  @@@ AP B A +}AY-A A@(>:A%,-@@-@  (% } '-'AB@-@@ (CONT-@&AB@ !},(>:A%,"AY@4, A "A"[[P,2,7,2,13,4,16,6,18,8,19,25,19,25,13,F,19,13,P,6,9,F,6,11,F,7,12"},F,8,13,F,13,13,13,7\\8,7,7,8,6,9,P,19,13,19,7,25,7,25,1,F,8,1,F,6,2,F,4,4,F,2,7,2,13,P,13,7,8,7,7,8,6,9,ENDBTT#}P,2,1,2,13,4,16,6,18,8,19,10,19,12,17,13,15,15,17,17,19,21,19,23,17,25,15,25,1ddP,6,7,F,6,11,F,8,13,F,10,11,10,7,6,7,P,15$},7,F,15,11,F,18,13,F,20,11,20,7,16,7,P,25,1,F,2,1,ENDCYYP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,F,6,9,8,7,19,7,21,9,P%},19,19,21,19,23,16,25,13``P,21,9,F,21,11,F,19,13,19,19,P,25,13,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,F,2,7,END&}DiiP,2,1,2,13,4,16,6,18,8,19,17,19,21,19,23,17,25,15,25,1,P,6,7,F,6,11,F,8,13,F,18,13,F,20,11,20,7,6,7P,25,1,F,2,1'},ENDEOOP,2,1,2,19,8,19,8,7,11,7,11,15,16,15,16,7,19,7,19,19,25,19,25,1,F,2,1,ENDFCCP,2,1,2,19,8,19,8,7,11(},7,11,15,16,15,16,7,25,7,25,1,F,2,1,ENDGYYP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,F,6,9,8,7,19,7,21,9,P,19,19,21,19,2)}3,16,25,13>>P,18,19,14,19,14,11,F,18,11,F,18,13,F,19,13,F,21,11,21,9CCP,25,13,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F*},4,4,F,2,7,ENDHddP,2,13,2,19,25,19,25,13,F,16,13,P,2,7,11,7,F,11,13,F,2,13,P,16,13,16,7,25,7,25,1,F,2,1,2,7,END+}I##P,2,1,2,7,25,7,25,1,F,2,1,ENDJSSP,2,13,2,19,20,19,21,18,23,16,25,13,25,7,P,2,13,F,18,13,F,20,12,F,21,9,19,,}7,F**19,1,F,20,1,F,22,2,F,23,4,F,25,7,ENDKggP,2,1,2,7,11,7,P,19,19,13,14,8,19,2,19,2,13,F,8,13,F,11,7,P,19,19,2-}5,19,25,13,F,19,13,F,16,7,25,725,1,F,2,1,ENDL//P,2,1,2,7,19,7,19,19,25,19,25,1,F,2,1,ENDMqqP,2,1,2,.}7,5,10,2,13,2,19,25,19,25,13,F,10,13,13,10,F,10,7,25,7,25,1,F,2,1,2,7,6,10,F,4,11,F,3,12,F,2,13,END N__P,2,1,2,7,8,1/}3,2,13,2,19,25,19,25,13,F,19,13,F,13,7,25,7,F,25,1,F,2,1,2,7,9,13,F,2,13,ENDOmmP,2,7,2,13,4,16,6,18,8,19,19,19,21,10}8,23,16,25,13,P,8,7,6,9,F,6,11,F,8,13,F,19,13,F,21,11,21,9,19,7,8,7CCP,25,13,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,1}F,2,7,END P$__P,2,1,2,13,4,16,6,18,8,19,13,19,15,18,17,16,19,13,P,6,9,F,6,11,F,7,12,F,8,13,F,13,13,13,7&228,7,7,8,2}6,9,P,19,13,19,7,25,7,25,1,F,2,1,END*Q.ggP,2,7,2,13,4,16,6,18,8,19,19,19,21,18,23,16,P,8,7,6,9,F,6,11,F,8,13,F,19,13,3}F,21,11,21,9,19,7,8,70YYP,23,16,27,19,29,16,F,25,13,F,25,7,F,23,4,F,21,2,F,19,1,F,8,1,F,6,2,F,4,4,F,2,7,END4R8IIP,4}2,1,2,13,4,16,6,18,8,19,10,19,12,17,13,15,15,17,17,19,25,19,25,13:,,P,6,7,F,6,11,F,8,13,F,10,11,F,10,7,6,7<==P,25,13,F,5}22,13,F,19,12,F,18,9,18,7,25,7,25,1,F,2,1,END>SBPPP,2,7,2,13,4,16,6,18,8,19,8,13,F,6,11,6,9,8,7,10,9,10,13,12,16,14,16}8,16,19DMM19,19,21,18,23,16,25,13,25,7,P,17,7,19,9,F,19,11,F,17,13,F,15,11,F,15,9FmmP,25,13,F,25,7,F,23,4,F,21,2,F,19,17},F,17,1,17,7,P,15,9,F,14,7,F,12,4,F,10,2,F,8,1,F,6,2,F,4,4,F,2,7,ENDHTL99P,2,1,2,19,8,19,8,13,25,13,25,7,F,8,7,8,1,F,8}2,1,ENDRUV..P,2,13,2,19,19,19,21,18,23,16,25,13,25,7XSSP,2,19,2,13,19,13,F,21,11,21,9,19,7,2,7,2,1,P,25,7,F,23,4,F9},21,2,F,19,1,F,2,1ZP,20,13,F,2,13[ END\V`OOP,2,1,2,7,14,7,16,9,16,11,14,13,2,13,2,19,17,19,25,11,F,25,9,F,17:},1,F,2,1b''P,16,9,F,16,11,F,14,13,F,2,13,ENDfWjNNP,2,1,2,7,19,7,16,10,19,13,2,13,2,19,25,19,25,13,F,22,10,25,7,25,;}1,F,2,1l''P,16,10,F,19,7,P,2,13,F,19,13,ENDpXtggP,2,1,2,7,9,10,2,13,2,19,8,19,13,15,19,19,25,19,25,13,F,18,10,25,7<},25,1,F,18,1,F,13,5,F,8,1,F,2,1vP,10,10,F,2,13,ENDzY~TTP,2,1,2,7,9,10,2,13,2,19,8,19,13,15,16,13,25,13,25,7,F,16=},7,F,13,5,F,8,1,F,2,1P,10,10,F,2,13,ENDZDDP,2,1,2,19,8,19,19,10,19,19,25,19,25,1,F,19,1,F,8,10,8,1,F,2,1>}6-F:@,!A'6-&A(@B7t$''(TITLE$=>:@4,>:@4, $;]}ghSCRIDXDATPNTINDEXSRLTRPRTREPNUDSFLLENGTTYPIGCASUDOWIPNFFLLOHIGMIEMAR @}-<!?RadKb(sb( @ @e @ @ @@@A}@@@@@@ @@!@@B} !"@2SAVE "D:SORT.BASdPROSPECTIVE SORTn1) ENTER SORT PARMSx2) REQUEST DATA DISK3)C} READ IN INDEX$4) READ IN RECORDS5) SORT RECORDS6) CREATE .I## FILEHOUSEKEEPINGpp;@,D};@,;@,;@,;A@,;A$@B,;A,;@@,;@@,,STEP ONE6//@E}@D:SORTPARS.DAT@@@B@@J@@KF}@@L6-!6- M 6-O:,N"@6-@O"@6-@Q SG}TEP TWO REQUEST DATA DISKRT 6.6-B:,%@^67&@,..IDXh 6.r67,.=:A%,|67<H},.I5 A@5@@ B A +@/-@@/ @I} PLEASE PLACE/-@@/ @ DATA DISK IN=-@@= @DRIVE #7@<@,J}0-@@0 @ PRESS --@@- @ WHEN READY F:B2y,@ApK} + ASTEP THREE READ IN INDEX$ A6-@@67,.6-%L}B:, A''6-P:B:,'@,$@%@- A06--6-A:7,,&@! B!!M}A8 }-@@8 NO RECORDS IN DATA FILE.&& STEP FOUR: READ IN RECORDS6 6. !N}67$+@%,,.067@,.66-" 6."67B:,&@,..DAT1 +-@@1AR@O} RECORDS READ IN:+@+@@-@QQ6-@'$+@:7$@&@,,&P}@d,%@:7$@&@,,&@d96-@:7$@,,&@2+!A'96-&@d @-@Q} @* 467,.=:A%,>AAAH67&%@<,.R6-%@R}%W-@"@ \ fpSTEP FIVE: SORTz"@AP,-@@, RECORDS S}SORTED: 16-%@""-&@6@6-%@6-&@,,6.7$%@<+%@,T}$&@,66/7$%@<+%@,$&@,*A@6617$%@<+%@,$&@,*A@>.U}37$%@<$+%@,&@,*46-> A>.27$%@<$+%@,&@,*46-> A V}"6- A 6-P:+%%@,'@,>.37$%@<$+%@,&@,*46-> A `>.27$W}%@<$+%@,&@,*46-> A `6-&@ A `06-$+&,0AV$P:'AV,"A X}$$6.7$%@<+%@,$,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$6Y}7$%@<$+%@,,. -@"@ &  A0NUMBER TO STRING" A6-"6Z}-A:,# B#6.0001.0000000000"$6-P:L:O:,,,6-O:,'@#46.=:A%,467@[}<@,.7@,( 6.=:,(67@<@%B:,,.!$-@@ 67<,.>:@\}&@:7,,,   $DATE REFORMAT6.7@<@,(O"@e/67@,.7@<@,O67@]},.7@<@,2O"@i/67@,.7@<@,O67@,.7@<@,< 6. $xSTRING ^}STUFF} 6. ( $B:,"$-@B:,6-@:7,,'!@* A#'6-&@2_}67,.>:,   $$$6.7$%@<+%@,$,OO67$%@<$%@,.7$+%@,%@<$+%@`},%@,SS67$%@<$++&@,%@,,.7$+%@,%@<$+%@,,$$67$%@<$+%@a},,. A@  STEP SIX WRITE I## FILE  , 6.,67B:,&@}}1568014011 ../../.. Home Inventory Report SECT PAGE  %{} ITEM MANUFACTURER PURCHASED PRICE  21-1336-1462-1572-%|}1 ITEM MANUFACTURER PURCHASED PRICE  21-1336-1462-1572-$?@ABC@D@E@FSAVE "D:BASIC.RZAR@ }d<(>:A%} @@@!} !@"@#@$%&@'(@)*!}+@,-./0123456789:!},"-@ @< Home Inventory Reporti'-@@ '  Designed by :n'-@@'  eric anderson}x-@A . STEP ONEjj;@@,;@@,;@@,;@f$@,;@,};@$A,;@"$@9, RR;@,9@,9@,9@,9,9@,9,ZZ};@,;@,;@,;@"$@9,;@,;@,;A,.A +'0@@A}0@@ @84-@@4 Which drive will hold yourB*-@@* data disk? (1/2)L16}-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Apj>6.D :HOMEINV.D}AT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GLB~8 A`8@@} D:HOMEINV.SCR A0 A APD B@/68@,-@D68@,-@}-@@@@@" 68,-"68%@,-8,%%%68%@},-8,%@%&& -@@$$678,<8%@,&@,. @//@}@D :HOMEINV.F01@@6-A:, 9,9%,9, @}@ 2 6. #67@f$@,.267@,.Z67@,.!67@,.267Aa,.-B67A@},.Z67Ab,.7Aa,-@@( 68,-68,-68,-2 7"A }< 9,F-@P@Z67%A@,.d68%,-i68,-%B:,&@n x A }@+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.}-@@. @ IN DRIVE #10-@@0 @ PRESS --@@- @ W}HEN READY6-@ B$. STEP TWO4 6.What is today's date? H BR 6.W }6-  . STEP THREE  A +'0@@ @A0@@ @ 9-@@9 }Do you want this report sent to --@@- creen or rinter?  16-@%6-@'6-@21 B } 0S*0PA0` 6. ! 4P B!A0` OPTIONAL SECTIONING 19@,-@-}68,-1   }-@@ Do you want all sections /-@@/ of this report? (y/n)} 16-@'6-@'6-@21 B 0 4Y-@"68,-& 0 A5  }6- 3-@}@3 Enter a section number to 4-@@4 include in this report, or (-@@( } to exit .-@@. SECTIONS IN REPORT: 16-@ 6-@'6-@1 B  4 B} A5  A36-A:,  @)!)8,A3 46-P:'@@,4-%@&@@$%@  *} 6-%@4 68,-> A3 UPPER LOWER CASE  }-@@ !! Do you want to ignore the }2-@@2 difference between upper /-@@/ and lower case? (y/n) 16-@'6-@'6}-@21 B  6.N4NA9 6.Y< A`TEST PAGE. STEP FOURA +}'0@@ @A0@@ @0-@@0 Do you wish to sort? 16-@6-@&}'6-@21 B4NAP_ A@c@@@@ D:SORT.BASK@U B}_ A@p }-@@BB  Can't find >:@4, D:SORT.BAS>:@4, on disk.-@@}&9-@@9 Enter field to sort records by.6-@@6 (1 - , or to list)? 16-@})6-@'6-@1 B+4L)4l B0! }+ A@p A@6-A:,A-!**}8,!*8, @7 BA AAP";-@@; Field  invalid. Enter for,@-@@}6 a list of fields to sort on.@ A@6M 6-6-#-@?8,!*8, @M6-%@8 };ASC, OR DSC SORT@Q-@@ .-@@Q scending or escending sort?J'6-@56-}@'6-@2T# B #0A*0DAA^ 4D6-6h//@@D:SORTPARS.DAT|9& }@7@:&@2,BY   $YLIST FIELDSY4 }AR@(6-}46-@Y6-@6-Y!!6.Keyboard entered fieldsZ%6-@6-@% B3ZB}1Z##6.Program calculated fields(Z%6-@6-@% B3:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ " Bpw}) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,.'AR}. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE }KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x"@*}"@$x"@*"@$x"@*"@$#x"@*"@$(x"@*"@$-}x B%Px B Zx0Y*0N*0Bdx$x.@.@@K:xAR@}x -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x"AU}B x"@'6.$x!@1* @6-y'!@* A#'6-&@2y B y -}6.>:, $y]@)0@@C0@@]0@@@"y$|y--@}@"- 7@<@5,y$|T&67@<@,.=:F:Ap,,76-B:,&@T67,.=:A%F:As,,}|67<,.R|5 B0@5@@|K +AR@1-@@K Wo}rking. Please wait.||@+@|/-@@/ @ PLEASE PLACE|2-@@2 @}PROGRAM DISK IN|5-@@5 @DRIVE #F:Ap,|0-@@0 @ PRESS }|--@@- @ WHEN READY|#6-@ B# B} }6. D:BASIC.P}5 B @@}5@@} B!(} B" B n}%}@+@}/-@@/ }@ PLEASE PLACE}0-@@0 @ REPORT SYSTEM},-@@, @ PART B IN}+-@}@+ @DRIVE #1}0-@@0 @ PRESS ~--@@- @ WHEN READY}~6-@ B$ B INFILEDATGLBULFLAGLABELTLEHEDTIIDDINPOSPBETYPERRCRNUMFLDNU);<=>?@@ABCDEFGHI!}JKLMNO@P@Q@RSSAVE "D:BASIC.P. STEP ONE!}jj;@@,;@@,;@@,;@f$@,;@,;@$A,;@"$@9, ]];@!},9@,9@,9@,9,9@,9,9,(]];@,;@,;@,;@!},;@,;@,;A,;@,)&6-F:Ap,&!A0.A +'0@@!}A0@@ @84-@@4 Which drive will hold yourB*-@@* data disk? (1/2)L16!}-@"6-@'6-@1 B V%01*02 B % A` 6-A:,Apj>6.D :HOMEINV.!}DAT267@<@,.=:,>6-@o 6.67,.IDXt 6.67,.GLBy 6.67,.I01{67@<@!},.1~8 A`8@@ D:HOMEINV.SCR A0 A AP/ B@!}/68@,-@-@@@@@ 68,-68!}%@,-8,% @//@@D :HOMEINV.F01@@!}6-A:, 9,9%,9, @@-@@( 68,-68,-6!}8,-2 <%%9%@,;@$@V,F%68@,-@%(AK-@P@Z!}678,,.d68%@,-8,%B:,i68%,-n x A  68,- @ A @!}+@/-@@/ @ PLEASE PLACE/-@@/ @ PROGRAM DISK.-@@!}. @ IN DRIVE #10-@@0 @ PRESS --@@- @ WHEN READY!}6-@ B$READ IN TEMP VARS7@7@@ D:DVARS.TMP! B!READ IN!} VARIABLES@ 6.N6.Y@ @ 9, -@ !}@68,-   @ 44@3@ D:DVARS.TMP A`  CLEAR O!}UT SUMMARY  6-6-ADJUST SEC. SUMMARY"$3 A@26-!}36-A:7@e<@q,,"ADh68@,-8@,%&$068@,-$OVE!}RALL SUMMARY ADJUST "6-%$"$"AH&&68@,-8@,%8@!}, 6-%$68@,-8@,~ 6- $PRINT SUMMARIES B6-A?(!}-67A0,.SUMMARY FOR SECTION #?67AQ,.=:,b&67A0,.OVERALL SUMMARYG67@e<@r,. !}b67@x<@,.1 77*")"*")"AR76.TOTAL PRICE PAID -6-8@%!},7 AY(AU6-w6-@|M#6.NUMBER OF RECORDS INPUT: C6-$+",%$+!,!}M AY B$ 6-%A`6-@ (67%,.OVERALL(6-%@*67%,.6-%B:!},467%,.=:,>$pz. STEP SIXA +'0@@ @A0@@6 !}A`6-6@@@6-%@67&@,.=:B%,)67&@!},.7&@,) A`P Aa@ @@ Aa  Ai A` Aa!}p6-@@67,.6-B:,%@ AaP226-A:7P:'@,$@%@,,&@$!} Ab@3REORDER INDEX$ AS PER I018 B-@B3 6- 36-A:7$@&@<$@"},,L/6-$@&@/6-@$&@VQQ67<%@,.=:A%@:7%@,,%@'$+@:7,,&@d,&"}@d,`W!67<%@,.7%@,=6-@:7%@,,&@2I!@W6-&@dj!!67%@<%@,.>:"},t  Ad+@+@@@ B 8 6. #67@f$@,."}267@,.86.Q 6.67@,.)67Aa,.-967A@,.Q67Ab,.7Aa,<FSTART PRINTI"}NG REPORTPZA +'0@@A0@@ @d?AR@? %Your report is now "}being produced ...i #Ag"n56-@ A05CLEAR OVERALL SUMMARYs6-x-@{*"}67@x<@,. *6-} "(8,Af`/ )6- A0/CLEAR SEC SUM6-"}-@116-A:7@$&@<@$&@,,6-@:7@$,, BREAD IN RECORD "}ApCALC PC'S AACCEPT/REJECT?Af0$ ) A@$ADJUST SEC SUM! A!PRINT " }RECORDS6-%@ * * B*PRINT LEFTOVER REC'S-6- AP-PRINT SEC SUM&" } AF&ADJUST OVERALL SUM 16-@ AP1PRINT OVERALL SUM" +, 0,1,1 +@" }/-@@/ @ PLEASE PLACE/-@@/ @ DATA DISK IN,-@@, @" }DRIVE # 0-@@0 @ PRESS --@@- @ WHEN READY6-@" } B$& +@+/-@@/ @ PLEASE PLACE02-@@2 @PROGRAM DISK IN5,"}-@@, @DRIVE #:0-@@0 @ PRESS ?--@@- @ WH"}EN READYD6-@ B$XbNEW PROG. CALC.'Sl$@JACCEPT/REJECTTc B4!"}"@6-(+@,"$(#2#PRINT RECORD<#># BA#( BCLEAR PAGEF#4 " B"} B4PRINT AND CLEAR PAGEP#-@Z# 6-8,! 6.=:8&,,d#* *6.78,<8%@,&@,"}i#8,"6@An#( 6-8,(6-8%@,&8,p# !6-8&,s#" Aw6-"6-A:,u# "} B B x#''678,%$$@%$%A@,.# #"A0#-@#DD678%,%$$@"}%$%A@,.78,<8%@,&@,# #16-%@"#6-16-%@#$'PRINT PAGE"}''67@f$@,. $' 4P B$.'76-6-% B7PRINT TO SCREEN8'-@"}@ B'A"6-@0%H:,$AA6-@%@$H:,L'2@ V';2@"}'6-'@;!? Bp`'.@.@@K:j')@t',"@:?, B@"}" B, Bw'"@:P, Bz'"AU$~' 6-6-'"@E6-&@'"@a6"}-%@'"@C6-&@'"@B6-%@'"@(6-&@'"@)6-%@"}'"@06-&@'"@16-%@'"@6-&@"'"A$6-%@"'""}@6-&@@'"@6-%@@( 6- (!@@6-@@( 6-"}(!@D6-@D(("*"B2( BPRINT SCREEN<( B)PRINT WINDOW ON SCREEN"})) }AR@")+-@!+6-%@$+%,,))-) 7%@<%@@,6)J -"}@"J   ROWS %@ TO %@" @)A-@ @"A COLS %@ TO %@@"} J) -@5@" T)>-@@#> #ۿ for help, to continue.^)$*+%%PRINT PAG" }E OF REPORT TO PRINTER ++3B:, @f$@367@f$@,. + BP$+''-@@f$@"!}@ +37<%@y,*+ 4+$,,CLEAR PAGE- -)6-6-)6-%@-67@""}p,.=:,-67@x,.=:,(-D67AA,. ,67@f$@,.D67AB,.7AA,2-$ N*NINPUT R"#}ECORD4N>N+@+@@HN2 6. #67@"$@9,.267@,.RN@\N"$}-@fN''8, @)8,!@BpN@zN$$678,<8%@,&@,.N 678,,."%}N@$UNUMERIC FORMATTINGU6-P:@#%?P,U6-P:$%?P,'V""6E)EB "&} V"6-6@V# 6.=:,6-B:,#6-%@V$-@7<,4.$6-"V 'V6. "'} ,V%!B 6V67&,..000000@V767%@&&,.*67%@,.4 B7$JV. 6.*67&"(}@,.+67@,..$WFORMAT STRINGW# B$@6.6-B:,#6.W-@:7,,"@2#6-&@- B$ ")}W6.7@<,W B$WFORMAT DATE YYMMDDW6- B%@W""6-A$A:,%A:7@,,X"*}6-B$A:7@,,% X B$YFORCE UPPER CASEYB:,"$$Y-@B:,.Y6-@:7,,8Y/"+}!@* A#/67<,.>:&@2,BY   $]: }@:  KEY FUNCTION ])()( ",} [-] Scroll up one line.]((( [=] Scroll down one line.]--(% [+] Scroll left one character.]..(& "-}[*] Scroll right one character.](]((( [] Scroll up ten lines.]**(" [] Scroll down ten lines.]/".}/(' [] Scroll left ten characters.^00(( [] Scroll right ten characters. ^(^( [_] Page up."/}^( [|] Page down.$^( [\] Page left..^( [^] Page right.8^(B^((( [P] Send page to "0}printer.L^-(-(" [RETURN] Continue with reportV^.-@@".  to continue.`^ F:B2y,@"1}BA`j^$aPRINTER CHECKa6-@a8 BP`@8@@P:a6-a B"2}@a$aO-@@# .-@@#E O BP@0uFOOLPROOF INPUT RO"3}UTINE:u4AR@6.(6-@46-Du!!"*"B`Nu -Xu,6.mm/dd/yy"6"4}-@, B@Bw(6..67,.(67@,.Lw ARVw-%@ `w##@@"5}K:jw)@ow'"AU** @'6-tw"@'6.~wL"AU)"@'+"6}AR@2 =@I6-L$w"A&*Bpw%% @2)!A")"Bpw'!67%@"7},.7%@<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0/Bpw"6-%@ "8}" Bpw) 6-6-&@)AR@w -% 7<,w"7<,4/"6-&@w867%@,."9}'AR. 8 BpwCONSOL CONTROLSw!!CONSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5":}w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?x LOOP x6-F:B2y,x"@*"@$x";}"@*"@$x"@*"@$x"@*"@$#x"@*"@$(x"@*"<}"@$-x B%Px B Zx0Y*0N*0Bdx$x.@.@@K:x"=}AR@x -x)!@1* @) >:%A(,x' @2)!@' >:A`,x)@x">}"AUB x"@'6.$x!@1* @6-y'!@* A#'6-&@2y B "?}y -6.>:, $y]@)0@@C0@@]0@@@"y"@}$|y--@@"- 7@<@5,y$|T&67@<@,.=:F:Ap,,76-B:,&@T67,.=:A"A}%F:As,,|67<,.P|5 B0@5@@|K +AR@1-@"B}@K Working. Please Wait.||&6-F:Ap, AiP& B} }'6-B:,&@6.'67<,.R"C}} +@}B-B ((};-@@; ! Y"D}our report generation program2}f-@@f Lhas now been completed. It is saved on your disk in two segments, "E}called<}9-@@9 7@, and 7@,.F}b-@@ b H To run your report program, take "F} your data disk, now your programP}V-@@V :@4,D:7@,d}=-@@= #We wish you luck with your program.i} "H} B 46MSKPRTRSCRSPFLAGINDEXINFILEDATGLBPNTULFLAGTLEHEDTDIIDINPOBETYPERRCRNUMFLDNUMTXN 6-%] 6-F:,]!A(6-^/!@c* @%6-@2/ B@u^ @6-%@2 ^67BJ}:,%@,.>:,^ ^ @6.^ ^@$aPRINT OUTFILE$a }a-@a/-8K},8,/ 78,<8%@,&@,a18,!1 78,<8%@,&@,a   $eDUMP INDEX$ TO DISKL}e:@:@@D1:HOMEINV.IDXe67$@%@,.=:,e-@B:,e 6.7, M}@e }WRITING INDEX FILEe! @6-!$g ( $g:@:@@DN}1:HOMEINV.GLBg #BU-@g1 "1 @78,<8%@,&@,g }WRITING GLOBAL FILEg! O}@6-!$0uFOOLPROOF INPUT ROUTINE:u4AR@6.(6-@46-Du!!"*"P}B`Nu -Xu6.7@<,Bw"6.mm/dd/yy"6-@Lw(ARVw$-%@Q}$*@@0`w##@@K:jw)@ow'"AU** @'6-tw"@'R}6.~wL"AU)"@'+AR@2 =@I6-L$w"A&*Bpw%% @2)!S}A")"Bpw'!67%@,.7%@<,'6-w67,.>:, >:,w"Bpw&6-%@&7<,0T}/Bpw.6-%@$*@@1. Bpw) 6-6-&@)AR@w -% 7<,w"U}7<,4/"6-&@wD67%@,.'AR:*@@0D BpwCONSOL CONTROLSw!!COV}NSOLE KEY START ,CN = 1,6w!!CONSOLE KEY SELECT,CN = 2,5w!!CONSOLE KEY OPTION,CN = 3,3x!!CONSOLE KEY OPTION,CN = 4,?W}x @ x6-F:B2y,x"@*"@$x"@*"@$x"@*"@$x"@X}*"@$#x"@*"@$(x"@*"@$-x B%Px B Zx0Y*0N*0BY}dx$x.@.@@K:xAR@x -x)!@1* @) >:%A(Z},x' @2)!@' >:A`,x)@x"AUB x"@'6.$x!@1* [}@6-y'!@* A#'6-&@2y B y -6.>:, $y]@)0@@\}C0@@]0@@@"y$|y--@@"- 7@<@5,y$}"{}@, A@$ A b(>:A%,"AA`4AA`F-@@b(Š٠_}32146MSKPRTRSCRSPFLAGINDEXINFILEDATGLBPNTULFLAGTLEHEDTDIIDINPOBETYPERRCRNUMFLDNUMTXN, -@@-(Select your option:?-@@\(. Data entry or update.n-@@(. Report`} generator [ A-@@3(. InstructionsE-@@W( Which number[ !"@!% D:HOa}MEINV.PRG !"@!% D:HOMEINV.R01 "@A0P A0 3(>:A%,"-@@3( b} ^-@@;(!This home inventory database is a^(series of interlinked programs k"(designed to track wc}hat youG( own. The data entry program letsk(you enter new records or update Q+(#previous ones. The report generatorQd}(!creates a listing of what you own `*("based on the data you have already\(,entered. Would you press return to continue}e ` A0A6-F:A,46-F:A,$AV%F:A,A(>:AS,"@A@0"Apf}A@5"ADA@@a(>:A%,2(ERROR: Whatever you have donea(*you have fallen through the error handling}g\.(&routine. Please check the instructionsA(and try again.U-@AY \d(>:A%,"-@@h}C(ERROR: Program was expectingd( a number. Please try again.%-@A % AAr(>:A%,"-i}@@@(ERROR: Program not found._(Please insert program diskr(and try again.%-@A % w}  <RECOD@d6-F:@,!A'6-&A(*k}@B7t ;@, A@ b(>:A%,"AA`4AA`F-@@b(*l}Š٠ -@@-(Select your option:?-@@\(. Data entry or update.n-@*m}@(. Report generator Q-@@)(. Instructions;-@@M( Which numberQ !"@*n}!% D:HOMEINV.PRG !"@!% D:HOMEINV.R01 "@A0P A0 3(>:A%,"-@@*o}3(  ^-@@;(!This home inventory database is a^(series of interlinked programs k"(design*p}ed to track what youG( own. The data entry program letsk(you enter new records or update Q+(#previous ones. The repor*q}t generatorQ(!creates a listing of what you own `*("based on the data you have already\(,entered. Would you press retu*r}rn to continue ` A0A6-F:A,46-F:A,$AV%F:A,A(>:AS,"@A@0*s}"ApA@5"ADA@@a(>:A%,2(ERROR: Whatever you have donea(*you have fallen through the *t}error handling\.(&routine. Please check the instructionsA(and try again.U-@AY \d(>:A%,"-*u}@@C(ERROR: Program was expectingd( a number. Please try again.%-@A % AAr(>*v}:A%,"-@@@(ERROR: Program not found._(Please insert program diskr(and try again.%-@A*y}AAX(>:A%,"-@@E(ERROR: Please check disk driveX(and try again.%-@A % x}AA A@ A0 D2:ANDER.NETOLUMVOICPITCORIGINHTITLEFILERECOD @2 % AAX(>:A%,"-@@E(ERROR: Please check disk driveX(and try again.%-@A*z} % AA A@ A0D2:MENU@d6-F:@,!A'6-&A((:A" >:@(, }"AB" >:@(,}'BB '@}},6-F:@,|}!A',6-&A((}@B7t-}$<}D2:HOMEINV.PRGEPOPCPRPRTRDOTBLANKTIGLOBALERV